home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / S-Z / Special Delivery™ Demo.cpt / Special Delivery™ Demo / Claris / Claris Translators / EPSF.rsrc / PS_110 < prev    next >
Text File  |  1991-06-19  |  813b  |  27 lines
  1. %%BeginProcSet : note 
  2. /note {
  3. gsave pbox astore pop
  4. 0 792 translate 1 -1 scale CTM currentmatrix pop exch translate
  5. pbox right get pbox left get sub 2 div
  6. pbox bottom get pbox top get sub 2 div
  7. translate 57.3 mul rotate setlinewidth
  8. noteBody aload pop moveto
  9. noteBody length 2 div 1 sub cvi{lineto}repeat
  10. dogEar aload pop moveto
  11. dogEar length 2 div 1 sub cvi{lineto}repeat
  12. 0.992 0.975 0.507 setrgbcolor gsave fill grestore
  13. gsave newpath
  14. stickem aload pop moveto
  15. stickem length 2 div 1 sub cvi{lineto}repeat
  16. 0.760 0.760 0.760 setrgbcolor fill 
  17. grestore
  18. 0 0 0 setrgbcolor stroke
  19. noteShadow aload pop moveto
  20. noteShadow length 2 div 1 sub cvi{lineto}repeat
  21. dogEarShadow aload pop moveto
  22. dogEarShadow length 2 div 1 sub cvi{lineto}repeat
  23. 0 0 0 setrgbcolor gsave stroke grestore fill
  24. grestore
  25. }bind def
  26. %%EndProcSet